<!-- #include file = "curOpenDB_01.asp" -->
<%
	Dim counter
	counter = Request.Form("counter")

	'//DEMOGRAPHIC VARIABLES		
	Dim dis_id
	dis_id = Request.Form("dis_id")

	'//Check if ID exists in Database
%>
<!-- #include file = "curOpenRS_01.asp" -->
<%
iDis_id = 0
	SQL = "SELECT TOP 1 dis_id FROM disassoc ORDER BY dis_id desc"
	rsRecordset.Open SQL, dbConnection
	If Not rsRecordset.EOF Then
		iDis_id = CDbl(rsRecordset("dis_id"))
	End If
	If iDis_id >= CDbl(dis_id) Then
		Response.Redirect("dis2001h_error.asp")
		Response.End()
	End If
%>
<!-- #include file = "curCloseRS_01.asp" -->
<!-- #include file = "curOpenRS_01.asp" -->
<%
iDis_id = 0
	SQL = "SELECT TOP 1 disd_disid FROM disassocd ORDER BY disd_disid desc"
	rsRecordset.Open SQL, dbConnection
	If Not rsRecordset.EOF Then
		iDis_id = CDbl(rsRecordset("disd_disid"))
	End If
	If iDis_id >= CDbl(dis_id) Then
		Response.Redirect("dis2001h_error.asp")
		Response.End()
	End If
%>
<!-- #include file = "curCloseRS_01.asp" -->
<%	
	Dim mesh_id
	mesh_id = Request.Form("mesh_id")
	Dim dis_name
	dis_name = Request.Form("dis_name")
	Dim dis_polyreg
	dis_polyreg = "KIR"
	Dim dis_city
	dis_city = Request.Form("dis_city")
	Dim dis_region
	dis_region = Request.Form("dis_region")
	Dim dis_country
	dis_country = Request.Form("dis_country")
	Dim dis_cont
	dis_cont = Request.Form("dis_cont")
	Dim pop_lat1_deg
	pop_lat1_deg = Request.Form("pop_lat1_deg")
	Dim pop_lat1_min
	pop_lat1_min = Request.Form("pop_lat1_min")
	Dim pop_lat1_card
	pop_lat1_card = Request.Form("pop_lat1_card")
	Dim pop_long1_deg
	pop_long1_deg = Request.Form("pop_long1_deg")
	Dim pop_long1_min
	pop_long1_min = Request.Form("pop_long1_min")
	Dim pop_long1_card
	pop_long1_card = Request.Form("pop_long1_card")
	Dim dis_eth
	dis_eth = Request.Form("dis_eth")
	Dim dis_sample_size_ctrls
	dis_sample_size_ctrls = Request.Form("dis_sample_size_ctrls")
	Dim dis_sample_size_spec_ctrls
	dis_sample_size_spec_ctrls = Request.Form("dis_sample_size_spec_ctrls")
	Dim	dis_sample_size_patients
	dis_sample_size_patients = Request.Form("dis_sample_size_patients")
	Dim dis_method
	dis_method = Request.Form("dis_method")
	Dim pop_source_ctrls
	pop_source_ctrls = Request.Form("pop_source_ctrls")
	Dim dis_extra_notes
	dis_extra_notes = Request.Form("dis_extra_notes")
	Dim dis_corr_auth
	dis_corr_auth = Request.Form("dis_corr_auth")
	Dim dis_email
	dis_email = Request.Form("dis_email")
	Dim dis_authors
	dis_authors = Request.Form("dis_authors")
	Dim dis_year
	dis_year = Request.Form("dis_year")
	Dim afnd_id
	afnd_id = Request.Form("afnd_id")
	If afnd_id = "" Then
		afnd_id = 0
	End If
	Dim afnd_name
	afnd_name = Request.Form("afnd_name")
	Dim dis_pub
	dis_pub = Request.Form("dis_pub")
	Dim dis_pmid
	dis_pmid = Request.Form("dis_pmid")
	Dim dis_status
	dis_status = "P"

	'//INSERTING INTO DATABASE
	strSQL = ""
	strSQL = "INSERT INTO disassoc "
	strSQL = strSQL & " (dis_id, mesh_id, dis_name, dis_polyreg, "
	strSQL = strSQL & "  dis_city, dis_region, dis_country, dis_geog_region, "
	strSQL = strSQL & "  dis_ethnicity, dis_method, dis_pub, "
	strSQL = strSQL & "  dis_sample_size_ctrls, dis_sample_size_spec_ctrls, dis_sample_size_patients, "
	strSQL = strSQL & "  dis_extra_notes, dis_authors, dis_year, "
	strSQL = strSQL & "  pop_lat1_deg, pop_lat1_min, pop_lat1_card, "
	strSQL = strSQL & "  pop_long1_deg, pop_long1_min, pop_long1_card, "
	strSQL = strSQL & "  pop_source_ctrls, afnd_id, "
	strSQL = strSQL & "  dis_corr_auth, dis_email, dis_pmid, dis_status) "
	strSQL = strSQL & "VALUES "
	strSQL = strSQL & " ('" & dis_id & "', "
	strSQL = strSQL & "  '" & mesh_id & "', "
	strSQL = strSQL & "  '" & dis_name & "', "
	strSQL = strSQL & "  '" & dis_polyreg & "', "
	strSQL = strSQL & "  '" & dis_city & "', "
	strSQL = strSQL & "  '" & dis_region & "', "
	strSQL = strSQL & "  '" & dis_country & "', "
	strSQL = strSQL & "  '" & dis_cont & "', "
	strSQL = strSQL & "  '" & dis_eth & "', "
	strSQL = strSQL & "  '" & dis_method & "', "
	strSQL = strSQL & "  '" & dis_pub & "', "
	strSQL = strSQL & "  '" & dis_sample_size_ctrls & "', "
	strSQL = strSQL & "  '" & dis_sample_size_spec_ctrls & "', "
	strSQL = strSQL & "  '" & dis_sample_size_patients & "', "
	strSQL = strSQL & "  '" & dis_extra_notes & "', "
	strSQL = strSQL & "  '" & dis_authors & "', "
	strSQL = strSQL & "  '" & dis_year & "', "
	strSQL = strSQL & "  '" & pop_lat1_deg & "', "
	strSQL = strSQL & "  '" & pop_lat1_min & "', "
	strSQL = strSQL & "  '" & pop_lat1_card & "', "
	strSQL = strSQL & "  '" & pop_long1_deg & "', "
	strSQL = strSQL & "  '" & pop_long1_min & "', "
	strSQL = strSQL & "  '" & pop_long1_card & "', "
	strSQL = strSQL & "  '" & pop_source_ctrls & "', "
	strSQL = strSQL & "  '" & afnd_id & "', "
	strSQL = strSQL & "  '" & dis_corr_auth & "', "
	strSQL = strSQL & "  '" & dis_email & "', "
	strSQL = strSQL & "  '" & dis_pmid & "', "
	strSQL = strSQL & "  '" & dis_status & "')"
	'Response.Write(strSQL & "</br></br>")
	'Response.End()
    dbConnection.Execute strSQL, iRecordsAffected

	'//FREQUENCY VARIABLES
  Dim haplogroup_array
redim haplogroup_array(counter) 
  Dim g2DL1_array
redim g2DL1_array(counter)
  Dim g2DL2_array
redim g2DL2_array(counter)
  Dim g2DL3_array
redim g2DL3_array(counter)
  Dim g2DL4_array
redim g2DL4_array(counter)
  Dim g2DL5_array
redim g2DL5_array(counter)
  Dim g2DP1_array
redim g2DP1_array(counter)
  Dim g2DS1_array
redim g2DS1_array(counter)
  Dim g2DS2_array
redim g2DS2_array(counter)
  Dim g2DS3_array
redim g2DS3_array(counter)
  Dim g2DS4_array
redim g2DS4_array(counter)
  Dim g2DS5_array
redim g2DS5_array(counter)
  Dim g3DL1_array
redim g3DL1_array(counter)
  Dim g3DL2_array
redim g3DL2_array(counter)
  Dim g3DL3_array
redim g3DL3_array(counter)
  Dim g3DP1_array
redim g3DP1_array(counter)
  Dim g3DS1_array
redim g3DS1_array(counter)
  Dim gA3_array
redim gA3_array(counter)
  Dim gA11_array
redim gA11_array(counter)
  Dim gBw4_array
redim gBw4_array(counter)
  Dim gBw480i_array
redim gBw480i_array(counter)
  Dim gC1_array
redim gC1_array(counter)
  Dim gC2_array
redim gC2_array(counter)
  Dim gG_array
redim gG_array(counter)
  Dim gfc_array
redim gfc_array(counter)
  Dim gfsc_array
redim gfsc_array(counter)
  Dim gfp_array
redim gfp_array(counter)
  Dim odds_array
redim odds_array(counter)
  Dim pvalue_array
redim pvalue_array(counter)
  Dim stat_array
redim stat_array(counter)
  Dim corr_array
redim corr_array(counter)

Dim i
For i = 1 to counter
	gfc_array(i) = Request.Form("gfc" & i)
	gfsc_array(i) = Request.Form("gfsc" & i)
	gfp_array(i) = Request.Form("gfp" & i)
	odds_array(i) = Request.Form("odds" & i)
	pvalue_array(i) = Request.Form("pvalue" & i)
	stat_array(i) = Request.Form("stat" & i)
	corr_array(i) = Request.Form("corr" & i)
			
	haplogroup_array(i) = Request.Form("haplogroup" & i)
		If haplogroup_array(i) <> "" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  '" & haplogroup_array(i) & "', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		End If
			  
	g2DL1_array(i) = Request.Form("g2DL1_" & i)
		If g2DL1_array(i) = "1" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  '2DL1[+]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		ElseIf g2DL1_array(i) = "0" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  '2DL1[-]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		End If
	
	g2DL2_array(i) = Request.Form("g2DL2_" & i)
		If g2DL2_array(i) = "1" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  '2DL2[+]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		ElseIf g2DL2_array(i) = "0" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  '2DL2[-]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		End If

	g2DL3_array(i) = Request.Form("g2DL3_" & i)
		If g2DL3_array(i) = "1" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  '2DL3[+]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		ElseIf g2DL3_array(i) = "0" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  '2DL3[-]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		End If

	g2DL4_array(i) = Request.Form("g2DL4_" & i)
		If g2DL4_array(i) = "1" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  '2DL4[+]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		ElseIf g2DL4_array(i) = "0" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  '2DL4[-]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		End If

	g2DL5_array(i) = Request.Form("g2DL5_" & i)
		If g2DL5_array(i) = "1" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  '2DL5[+]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		ElseIf g2DL5_array(i) = "0" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  '2DL5[-]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		End If

	g2DP1_array(i) = Request.Form("g2DP1_" & i)
		If g2DP1_array(i) = "1" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  '2DP1[+]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		ElseIf g2DP1_array(i) = "0" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  '2DP1[-]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		End If

	g2DS1_array(i) = Request.Form("g2DS1_" & i)
		If g2DS1_array(i) = "1" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  '2DS1[+]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		ElseIf g2DS1_array(i) = "0" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  '2DS1[-]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		End If

	g2DS2_array(i) = Request.Form("g2DS2_" & i)
		If g2DS2_array(i) = "1" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  '2DS2[+]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		ElseIf g2DS2_array(i) = "0" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  '2DS2[-]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		End If

	g2DS3_array(i) = Request.Form("g2DS3_" & i)
		If g2DS3_array(i) = "1" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  '2DS3[+]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		ElseIf g2DS3_array(i) = "0" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  '2DS3[-]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		End If

	g2DS4_array(i) = Request.Form("g2DS4_" & i)
		If g2DS4_array(i) = "1" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  '2DS4[+]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		ElseIf g2DS4_array(i) = "0" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  '2DS4[-]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		End If

	g2DS5_array(i) = Request.Form("g2DS5_" & i)
		If g2DS5_array(i) = "1" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  '2DS5[+]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		ElseIf g2DS5_array(i) = "0" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  '2DS5[-]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		End If

	g3DL1_array(i) = Request.Form("g3DL1_" & i)
		If g3DL1_array(i) = "1" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  '3DL1[+]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		ElseIf g3DL1_array(i) = "0" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  '3DL1[-]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		End If

	g3DL2_array(i) = Request.Form("g3DL2_" & i)
		If g3DL2_array(i) = "1" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  '3DL2[+]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		ElseIf g3DL2_array(i) = "0" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  '3DL2[-]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		End If

	g3DL3_array(i) = Request.Form("g3DL3_" & i)
		If g3DL3_array(i) = "1" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  '3DL3[+]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		ElseIf g3DL3_array(i) = "0" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  '3DL3[-]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		End If

	g3DP1_array(i) = Request.Form("g3DP1_" & i)
		If g3DP1_array(i) = "1" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  '3DP1[+]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		ElseIf g3DP1_array(i) = "0" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  '3DP1[-]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		End If

	g3DS1_array(i) = Request.Form("g3DS1_" & i)
		If g3DS1_array(i) = "1" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  '3DS1[+]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		ElseIf g3DS1_array(i) = "0" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  '3DS1[-]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		End If

	gA3_array(i) = Request.Form("gA3_" & i)
		If gA3_array(i) = "1" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  'A3[+]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		ElseIf gA3_array(i) = "0" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  'A3[-]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		End If

	gA11_array(i) = Request.Form("gA11_" & i)
		If gA11_array(i) = "1" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  'A11[+]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		ElseIf gA11_array(i) = "0" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  'A11[-]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		End If

	gBw4_array(i) = Request.Form("gBw4_" & i)
		If gBw4_array(i) = "1" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  'Bw4[+]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		ElseIf gBw4_array(i) = "0" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  'Bw4[-]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		End If

	gBw480i_array(i) = Request.Form("gBw480i_" & i)
		If gBw480i_array(i) = "1" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  'Bw4(80I)[+]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		ElseIf gBw480i_array(i) = "0" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  'Bw4(80I)[-]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		End If

	gC1_array(i) = Request.Form("gC1_" & i)
		If gC1_array(i) = "1" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  'C1[+]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		ElseIf gC1_array(i) = "0" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  'C1[-]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		End If

	gC2_array(i) = Request.Form("gC2_" & i)
		If gC2_array(i) = "1" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  'C2[+]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		ElseIf gC2_array(i) = "0" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  'C2[-]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		End If

	gG_array(i) = Request.Form("gG_" & i)
		If gG_array(i) = "1" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  'G[+]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		ElseIf gG_array(i) = "0" Then
				strSQL = "INSERT INTO disassocd "
				strSQL = strSQL & " (disd_disid, disd_polyreg, disd_line, disd_gene_allele, "
				strSQL = strSQL & " disd_gene_freq_ctrls, disd_gene_freq_spec_ctrls, disd_gene_freq_patients, "
				strSQL = strSQL & " disd_odds_ratio, disd_pvalue, disd_stat_method, disd_stat_correction) "
				strSQL = strSQL & "VALUES "
				strSQL = strSQL & " ('" & dis_id & "', "
				strSQL = strSQL & "  '" & dis_polyreg & "', "
				strSQL = strSQL & "  '" & i & "', "
				strSQL = strSQL & "  'G[-]', "
				strSQL = strSQL & "  '" & gfc_array(i) & "', "
				strSQL = strSQL & "  '" & gfsc_array(i) & "', "
				strSQL = strSQL & "  '" & gfp_array(i) & "', "
				strSQL = strSQL & "  '" & odds_array(i) & "', "
				strSQL = strSQL & "  '" & pvalue_array(i) & "', "
				strSQL = strSQL & "  '" & stat_array(i) & "', "
				strSQL = strSQL & "  '" & corr_array(i) & "')"
				'Response.Write(strSQL & "</br></br>")
				dbConnection.Execute strSQL, iRecordsAffected
		End If

Next

	Response.Redirect("dis2001g.asp")
%>
<!-- #include file = "curCloseDB_01.asp" -->